home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 17 / Developer Source Volume 17 (I-MODE Publications, Inc.)(2000).iso / orinf / sep96 / greef105.gif < prev    next >
Graphics Interchange Format  |  1998-02-10  |  12.7 KB  |  640x454  |  4-bit (14 colors)
   ocr: Oracle Power Objects - (rmUrders.InitializeWindow) -EX File Edit Object View Run Window Help EX i E - L - E Sub initializewindowl Declare variables to hold menu bar and menu objects DIM mbrUrdersForm AS Object DIM mnuurder AS Object Create the menu bar object and initlallze it with the system detault and application detault menus mbrordersForm == NEW Menubar rmurders.DeraultMenubar - (mbEUrdersrorm) mnuUrder == NEW menu Create custom menu anuUrder.Label == "GUrder" 'Add label to menu Add items to menu, including separator lines and keyboard equivalents anuurder.Appendiend-ienultem("aNew Order" ...